Module Module1
    Sub Main()
        Try
            Dim locForm1 As Form1
            locForm1 = New Form1
            locForm1.ShowDialog()
        Catch ex As Exception
            MsgBox("Es ist ein Fehler aufgetreten." & vbCrLf & vbCrLf & _
              ex.Message)
        End Try
    End Sub
End Module