Foro de elhacker.net

Function fncSpace(strText As String)
    For i = 1 To Len(strText)
        x = x & Mid(strText, i, 1)
        If i Mod 4 = 0 Then x = x & Chr(32)
    Next
    fncSpace = x
End Function

Dim e&
Private Sub Text1_Change()
e = e + 1
If e = 4 Then Text1.Text = Text1.Text + " ": e = 0: Text1.SelStart = Len(Text1.Text)
End Sub
 

text1.onkeypress=function(){with(text1)value=value.match(/[^\s]{1,4}/g).join(" ")}

Private Sub t_Change():e=e+1:If e=4 Then t=t+" ":e=0:t.SelStart=Len(t)
End Sub
 

t.onkeypress=function(){with(t)value=value.match(/[^ ]{1,4}/g).join(" ")}