Private Sub Command1_Click()
Dim i As Integer
Dim i2 As Integer
i = InStr(Text1, Text2)
i2 = InStr(i + 1, Text1, " ")
MsgBox "la parola " & Text2 & " è compresa tra i caratteri " & i & " e " & i2
End Sub
Private Sub Command1_Click()
Dim i As Integer
Dim i2 As Integer
i = InStr(Text1, Text2)
i2 = InStr(i + 1, Text1, " ")
MsgBox "la parola " & Text2 & " è compresa tra i caratteri " & i & " e " & i2
End Sub
Vascello fantasma dei mentecatti nonchè baronetto della scara corona alcolica, piccolo spuccello di pezza dislessico e ubriaco- Colui che ha modificato l'orribile scritta - Gran Evacuatore Mentecatto - Tristo Mietitore Mentecatto chi usa uTonter danneggia anche te
Permessi di invio
Rispondi quotando