Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button3.Click
        If System.IO.File.Exists(".\Fake\serial.txt") = True Then
            '... mach weiter
        Else
            Dialog5.ShowDialog()
        End If
    End Sub

fg viperbone