برنامه زیر نام را گرفته و سپس آنها را روی فرم چاپ می کند

برنامه زیر نام و نام خانوادگی را از ورودی گرفته و سپس آنها را به صورت مجزا روی فرم چاپ می کند
ملاک جدا سازی نام و نام خانوادگی حرف"فاصله" است.

کد:

---

Private Sub Form_Click()
'Decelaration
Dim strFLN, strName, strLastName As String
Dim intI As Integer
'
intI = 0: strFLN = "": strName = "": strLastName = ""
'
strFLN = InputBox("Enter String")
For intI = 1 To Len(strFLN)
If Mid(strFLN, intI, 1) = " " Then
strName = Left(strFLN, ((intI) - (1)))
strLastName = Right(strFLN, (Len(strFLN)) - (intI))
End If
Next intI
'Print On Form:
Print strName
Print strLastName
End Sub

---

با اینکه ابتدایی است ولی جالبه