Private Sub Command_Click()
  Dim txt As String
  txt = "abc def ghi jkl mno"
  MsgBox txt + vbCrLf + No_Space(txt)
 
End Sub
Function No_Space(txt As String) As String
  No_Space = Replace(txt, " ", "")
End Function

dbayerTo be is to do (Rene Descartes)To do is to be (Kant / Nietzsche / Sartre u.a.)Do be do be dooo (Frank Sinatra, Strangers in the Night)