Visual Basic 6.0 Как исправить данную ошибку?

Private Sub Command1_Click()
                  i = 1
                  nCnt = 0
                  Simvol = Sim
                  nCnt = Len (Str.Text)
                  IF Len (iSim.Text) < 0 Then
                  End IF
                  For Sim= 1 To dlin
                        Mid$ (Str.Text, Sim, i) = nCnt
                        IF  nCnt =  Simvol.Text Then
                        nCnt = nCnt +1
                  End IF
                         otvet.Caption = nCnt
                  Next
End Sub

Private Sub Command1_Click()
    sim = "a"
    n = UBound(Split(Str.Text, sim))
    otvet.Caption = IIf(n = 0, "нету", n)
End Sub

Private Sub Command1_Click()
    Dim sim As String, i As Integer, n As Integer
    sim = "a"
    For i = 1 To Len(Str.Text)
        If Mid(Str.Text, i, 1) = sim Then n = n + 1
    Next i
    otvet.Caption = IIf(n = 0, "нету", n)
End Sub

sim = InputBox("Введите символ","Ввод данных","a")