Question

In my class i want to return the filepath into a tectbox on an other form, but it won’t return the filepath after saving. Probally because it is a sub an’t won’t return a value am i correct? But what is the right way to fix this?

Friend Sub GetFilepath(ByVal hide As Boolean)
    Dim GeluidS As New GeluidSchermForm
    Call ExcelKoppelen("Z:\location\Geluidscherm_template.xls")
    Filepath = Xl.GetSaveAsFilename("", "Excel document (*.xls), *.xls", , , )
    Workbook.SaveAs(Filepath)
    GeluidS.Excelfilenaam.Text = Filepath
End Sub

Answer 1

Friend Function GetFilepath(ByVal hide As Boolean) as String
    Dim GeluidS As New GeluidSchermForm
    Call ExcelKoppelen("Z:\location\Geluidscherm_template.xls")
    Filepath = Xl.GetSaveAsFilename("", "Excel document (*.xls), *.xls", , , )
    Workbook.SaveAs(Filepath)
    GeluidS.Excelfilenaam.Text = Filepath
    return Filepath
End Sub

Like that?