Salve a tutti stavo provando a scrivere la mia prima procedura che mi controlla se una stringa occorre in un altra. Ho scritto il seguente codice in vb6 che non da errori ma non produce risultati. Credo di aver sbagliato dove dichiarare le cose ma non so come correggermi. Premetto che c'è un form bianco con al suo interno solo questo codice:
Private Sub Form_Load()
Dim stringa1 As String, stringa2 As String
stringa1 = "ciao"
stringa2 = "ia"
occorr stringa1, stringa2
End Sub
Sub occorr(s1 As String, s2 As String)
Dim lungh1 As Integer
Dim lungh2 As Integer
Dim i As Integer
Dim appo As String
Dim cont As Integer
lungh1 = Len(s1)
lungh2 = Len(s2)
i = 1
cont = 0
While (i <= lungh1 - lungh2 + 1)
appo = Mid$(s1, i, lungh2)
If (appo = s2) Then
cont = 100
i = i + 1
Else
i = i + 1
End If
Wend
If (cont = 100) Then
MsgBox (sottostringa)
Else
MsgBox (NONsottostringa)
End If
End Sub
Grazie a tutti per l'aiuto e scusate l'ignoranza