Function SzóközNélkül(Szöveg As String) As String
SzóközNélkül = Replace(Szöveg, " ", "")
End Function

Sub teszt()
MsgBox SzóközNélkül("dfh asge e ger gr rg")
End Sub