Option Explicit

Private Sub Command1_Click()
If Len(Dir(Text1.Text)) <> 0 Then
Label1.Caption = "Filen finns!"
Else
Label1.Caption = "Filen finns inte!"
End If
End Sub