Private Sub cmdChooseFile_Click()
  On Error Resume Next
  With CommonDialog1
    .Filter = "EXE-Files (*.exe)|*.exe"
    .ShowOpen
    If Err = 0 Then
      sFilename = .Filename
    End If
  End With
End Sub

Option Explicit
Private sFilename As String