dim dir as file
If Dir.Exists(Application.StartupPath & "\archiv.txt") = False Then 
Dir.Create(Application.StartupPath & "\archiv.txt")
else
 
Dim tbs() As TextBox = {TextBox2, TextBox3}
        Dim sw As New IO.StreamReader(Application.StartupPath & "\archiv.txt")
        For Each tb As TextBox In tbs
            tb.Text = sw.ReadLine
        Next
        sw.Close()
 
If TextBox2.Text = "" Then 
MsgBox("kein Pfad vorhanden")
end if
 
end if