Sub Main(ByVal args() As String)
        Dim myProcess As Process
        Dim arProcess As Array
        Dim intProcessID As Integer
        Dim strTelNmb As String
 
        strTelNmb = Command$()
        Console.Write(strTelNmb)
        'Sucht den entsprechenden Prozess des Programms
        arProcess = Process.GetProcessesByName("AGVIP5")
 
        'Iterate through the process array.
        For Each myProcess In arProcess
            intProcessID = myProcess.Id()
        Next
 
        If intProcessID > 0 Then
            AppActivate(intProcessID)
            SendKeys.Wait("{F4}")
            SendKeys.Wait(strTelNmb)
        End If
    End Sub