If com.PortOpen Then
com.PortOpen = False

End If
com.CommPort = c
com.Settings = "19200,N,8,1"

com.PortOpen = True
com.Output = "ATE0" & Chr(13)
Do
   DoEvents
   Buffer = Buffer & com.Input
Loop Until InStr(Buffer, "OK" & vcrlf)
Buffer = ""
com.Output = "AT+CGMI" & Chr(13)

Do
   DoEvents
   Buffer = Buffer & com.Input
Loop Until InStr(Buffer, "OK" & vcrlf)
    
Size = Len(Buffer)
j = Size
Label1.Caption = ""
For i = 1 To Size Step 1
    caracter = Right(Buffer, j)
    car = Left(caracter, 1)
    If car = vbCr Then
        
    End If
        
    If car <> vbCr And car <> vbLf And car <> vbCrLf Then
         final = final & car
    End If
    j = j - 1
Next i
pozitie = InStr(final, "OK")
device = Left(final, Len(final) - 2)
           
            
Label1.Caption = device
If device <> "" Then
    Shape1.BackColor = &HFF00&
End If