スペースを削除（半角・全角、途中も含む）する関数

Private Function SpaceDelete(ByVal str As String) As String
    ' スペースを削除（半角・全角、途中も含む）
    str = Replace(str, " ", "")
    str = Replace(str, "　", "")
    SpaceDelete = str
End Function

Private Sub 使用例()
    Debug.Print SpaceDelete(" A　B　C ")    ' ABC
End Sub