SelectVid.ShowDialog() Button2(The convert Button) Dim type As String = ComboBox1.Text If ComboBox1.Text = "" Then MsgBox("No file type selected") Else End If MsgBox(TextBox1.Text + " shall be converted into a " + type + " file.") Dim oldFile As String = Mid(TextBox1.Text, 1, Len(TextBox1.Text) - 4) FileCopy(TextBox1.Text, oldFile + type) Openfiledialog (SelectVid): Dim file As String = SelectVid.FileName TextBox1.Text = file ... Video Converter Visual Basic 2008 Express Edition avi mp4 m4v ...