كتابة حرف ثم مسافة ثم حرف مثل ( ه ل ا ) بدل كلمة (هلا)

Private Sub Form_Load()
Dim s As String
s = "هلا"
Dim temp As String
For i = 1 To Len(s)
temp = temp & Mid(s, i, 1) & Space(1)
Next
Me.Caption = temp
End Sub

أو

Private Sub Form_Load()
   Me.Caption = AddSpace("السلام عليكم")
End Sub


Function AddSpace(sLine As String) As String
  Dim result As String
  For i = 1 To Len(sLine)
	result = result & Mid(sLine, i, 1) & Space(1)
  Next
  AddSpace = result
End Function