jaimeluisbn

ifrancoz respondió: Pues se podría hacer algo como esto : Dim I As Integer Dim Sw As Byte Dim Largo As Integer Private Sub Command1_Click() Text2 = "" Largo = Len(Text1) Sw = 0 For I = 1 To Largo If Mid(Text1, I, 1) = " " Then Sw = 1 End If If Sw = 0 Then Text2 = Text2...