Тип-символ объявления не соответствует объявленному типу данных

---

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

Что я уже пробовал:

До вчерашнего дня моя программа работала, а сегодня утром, когда я открыл свой проект в VB6 и снова скомпилировал свою программу, я получил эту ошибку "символ объявления типа не соответствует объявленному типу данных"

Пожалуйста, помогите мне

---