Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Windows.Forms public class PasswordFieldMatch public Shared Sub Main Dim Filename As String Filename = InputBox("Your Value", "Title", "c:\document") End Sub End class