全角半角のスペースを取り除く

'*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
'★ 全角半角のスペースを取り除く
'*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
Function zfDeleteSpace(ByVal tStr As String) As String
    Dim resStr As String
    resStr = Replace(tStr, " ", "")
    resStr = Replace(resStr, "　", "")
    zfDeleteSpace = resStr
End Function