Yeni bir buton oluşturulup (örn:Komut27);
Kod:
Private Sub Komut27_Click()
On Error GoTo Hata
Dim kRk, Metnimiz, KuTuncu
kRk = Len(Metin0)
KuTuncu = 1
Metin30 = Metin0
For i = 1 To kRk
If Mid(Metin0, i, 1) = " " Then
Me("Metin" & KuTuncu) = Metnimiz
KuTuncu = KuTuncu + 1
Metnimiz = Null
Else
Metnimiz = Metnimiz & Mid(Metin0, i, 1)
End If
Next
Me("Metin" & KuTuncu) = Metnimiz
Metnimiz = Null
KuTuncu = Null
Cikis: Exit Sub
Hata: Resume Cikis
End Sub