Type-declaration character does not match declared data type

See more:

VB6

Dim str As String

Private Sub send_Click()
    Dim str As String
    MSComm1.Output = Text1.Text & str
    Do
        DoEvents
            Loop Until MSComm1.InBufferCount >= 2
            str = MSComm1.Input
            Text2.Text = str
            MSComm1.PortOpen = False
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
    MSComm1.Output = KeyAscii
    Text1.Text = KeyAscii
End Sub

Private Sub Form_Load()

    MSComm1.CommPort = 3
    MSComm1.Settings = "9600,N,8,1"
    MSComm1.InputLen = 0
    MSComm1.PortOpen = True
    
End Sub

Private Sub MSComm1_OnComm()

    MSComm1.CommPort = 3
    MSComm1.Settings = "9600,N,8,1"
    MSComm1.PortOpen = True
    If MSComm1.InBufferCount Then
        InStr$ = MSComm1.Input
    End If
    MSComm1.InBufferSize = 1024
    MSComm1.InBufferCount = 0
    MSComm1.OutBufferSize = 512
    MSComm1.OutBufferCount = 0
    MSComm1.Break = True
    MSComm1.DSRHolding = True
    MSComm1.DTREnable = True
    Select Case MSComm1.CommEvent
        Case comBreak
            MsgBox ("Break Received")
        Case comCDTO
        Case comCTSTO
        Case comDSRTO
        Case comFrame
        Case comOverrun
        Case comRxOver
        Case comRxParity
        Case comTxFull
        Case comEvCD
        Case comEvCTS
        Case comEvDSR
        Case comEvRing
        Case comEvReceive
            Text2.Text = MSComm1.Input
        Case comEvSend
    End Select
End Sub

What I have tried:

Till yesterday my program was working and today morning when i opened my project in VB6 and again compiled my program and got this error "type-declaration character does not match declared data type"

Please help me