CallerID i jos ponesto

Code:

Public Sub CidDisable()
        On Error GoTo CommErrorMain
        Instring1 = ""
        cmdEnable.Enabled = False
        CidStatus = "Disableing"
        If MSComm1.PortOpen = False Then MSComm1.PortOpen = True
        MSComm1.Output = "ATZ0S82=74" & vbCr
        '            mnuEnable.Enabled = True
        '            mnuDisable.Enabled = False
        AddToLog("Disableing...")
        Timer1.Enabled = True
        Exit Sub
CommErrorMain:
        CommError(Err.Number)
    End Sub

    Public Sub CidEnable()
        On Error GoTo CommErrorMain
            cmdEnable.Enabled = False
            Instring1 = ""
            CidStatus = "Enableing"
            MSComm1.CommPort = Port
            If MSComm1.PortOpen = False Then MSComm1.PortOpen = True
            MSComm1.Output = "ATZ0S82=76S42=3" & vbCr

            '        mnuEnable.Enabled = False
            '        mnuDisable.Enabled = True
            AddToLog("Enableing...")
            Timer1.Enabled = True

        Exit Sub
CommErrorMain:
        CommError(Err.Number)
    End Sub

    Public Sub CommError(ByVal errortohandle As Integer)
        Select Case errortohandle
            Case 0 : Resume Next
            Case 20 : Resume Next
            Case 8002
                cmdEnable.Enabled = True
                MsgBox("The Comm port" & Port & " does not exist", vbCritical)
                CidStatus = "Disabled"
                AddToLog("Disabled")
                Exit Sub
            Case 8005
                cmdEnable.Enabled = True
                MsgBox("The Comm port " & Port & " is in use.", vbCritical)
                CidStatus = "Disabled"
                AddToLog("Disabled")
                '    Exit Sub
            Case 8012
                MsgBox("netMod is in use.")
                cmdEnable.Enabled = True
                If MyBase.WindowState = vbNormal Then cmdEnable.Focus()
                CidStatus = "Disabled"
                AddToLog("Disabled")
                Exit Sub
                ' DODATI ZA AUTO ENABLE
            Case Else
                MsgBox("ERROR " & Err.Number & " : " & Err.Description, vbCritical)
                Exit Sub
        End Select
    End Sub

    Private Sub Timer1_Elapsed(ByVal sender As System.Object, ByVal e As System.Timers.ElapsedEventArgs) Handles Timer1.Elapsed
        Times = Times + 1
        Instring = Instring & MSComm1.Input
        If Times = 4 Then
            MSComm1.PortOpen = False
            Timer1.Enabled = False
            cmdEnable.Enabled = True
            Times = 0
            If CidStatus = "Enableing" Then
                AddToLog("Greska pri Enable-ovanju")
                CidStatus = "Disabled"
                '  mnuEnable.Enabled = True
                '  mnuDisable.Enabled = False
            ElseIf CidStatus = "Disabling" Then
                AddToLog("Greska pri Disable-ovanju")
                CidStatus = "Enabled"
                ' mnuEnable.Enabled = False
                ' mnuDisable.Enabled = True
            Else
                AddToLog("Neka Greska")
            End If
            Exit Sub
        End If
        If InStr(Instring, "OK") Then
            AddToLog(Mid(Instring, InStr(Instring, "OK"), 2))
            If CidStatus = "Enableing" Then
                CidStatus = "Enabled"
                cmdEnable.Text = "Disable"
            End If
            If CidStatus = "Disableing" Then
                CidStatus = "Disabled"
                cmdEnable.Text = "Enable"
                MSComm1.PortOpen = False
            End If
            Timer1.Enabled = False
            Instring = ""
            Times = 0
            cmdEnable.Enabled = True
        End If
    End Sub

    Dim brojRingova As Integer
    Private Sub Timer2_Elapsed(ByVal sender As System.Object, ByVal e As System.Timers.ElapsedEventArgs) Handles Timer2.Elapsed
        If CidStatus <> "Enabled" Then Exit Sub
        Instring1 = MSComm1.Input
        '  AddToLog("'" & Instring1 & "'")
        '   AddToLog("Instring = " & Instring1)
        Do While InStr(Instring1, vbCrLf) > 0 And Len(Instring1) > 2
            If InStr(Instring1, vbCrLf) = 1 Then Instring1 = Mid(Instring1, 3)
            If InStr(Instring1, vbCrLf) = 0 Then Instring1 = Instring1 & vbCrLf
            Line = Mid(Instring1, 1, InStr(Instring1, vbCrLf) - 1)
            If InStr(Line, "RING") Then
                If InStr(Line, ";") Then
                    'STA KAD ZVONI PRVI PUT
                    SNumber = Mid(Line, InStr(Line, " ") + 1, InStr(Line, ";") - InStr(Line, " ") - 1)
                    PhoneNumber = Mid(Line, InStr(Line, ";") + 1)
                    brojRingova = 1
                    AddToLog("Incoming: " & phBook.NadjiKoJe(PhoneNumber, 1) & " (" & PhoneNumber & ")" & " Line: " & SNumber)
                Else
                    ' SAMO ZVONI - NEKI VIZUELNI EFEKAT
                    'AddToLog("ringg")
                    brojRingova = brojRingova + 1
                End If
            End If
            If InStr(Line, "NO CARRIER") Then
                'PREKID
                'AddToLog("Prekinuto")
                lstMissed.Items.Add(phBook.NadjiKoJe(PhoneNumber, 1) & " (" & PhoneNumber & ")" & " Line: " & SNumber & " Rings: " & brojRingova)
                ' phBook.DodajMissedUdb(PhoneNumber, SNumber, brojRingova)
                brojRingova = 0
            End If
            Instring1 = Mid(Instring1, Len(Line) + 1)
            Line = ""
        Loop
        Instring1 = ""
        Timer2.Enabled = False
        Timer3.Enabled = False
        Timer3.Enabled = True
    End Sub

    Private Sub Timer3_Elapsed(ByVal sender As System.Object, ByVal e As System.Timers.ElapsedEventArgs) Handles Timer3.Elapsed
        Timer2.Enabled = True
        Timer3.Enabled = False
    End Sub

    Private Sub MSComm1_OnComm(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MSComm1.OnComm
        Timer2.Enabled = True
    End Sub