Hellow for all the members in forum
I try to fix my code and i need a help.My code is:
Private Sub Εντολή9_Click()
Dim i As Variant
Dim mMessage As Variant
'Αλλαγή των κενών χαρακτήρων του μηνύματος σε %20
For i = 1 To Len(Me.Message.Value)
If Mid(Me.Message.Value, i, 1) = " " Then...