Module Module1
 
    Sub Main(Argumente() As String)
 
        If Argumente.Length > 2 Then
            WriteLine("zuviele Arguente")
            Exit Sub
        ElseIf Argumente.Length < 2 Then
            WriteLine("zuwenig Arguemnte")
            Exit Sub
 
        End If
 
    End Sub
 
End Module

Imports System.Console
 
Module Module1
 
    Sub Main(Argumente() As String)
 
        If Argumente.Length > 2 Then
            WriteLine("zuviele Arguente")
            Exit Sub
        ElseIf Argumente.Length < 2 Then
            WriteLine("zuwenig Arguemnte")
            Exit Sub
        End If
        rechnen()
 
    End Sub
    Function rechnen() As String
        Dim opt1 As Single
        Dim opt2 As Single
        Dim ergebnis As Single
 
        WriteLine("{0} + {1} = {2}", opt1, opt2, opt1 + opt2)
 
    End Function
End Module