←←←/Access/Trim

Function usTrim(str  As Varuant ) As Variant
    Dim myStr As String
    Dim s  As String
    Dim i   As String
    Dim flg As Boolean

    If IsNull ( str ) Then
      usTrim = Null
      Exit Function
    End If

    mtStr = Trim( str )
    flg = True
    usTrim = ""


    For i = 1 To Len( mtStr )
      s = Mid( myStr , i , 1 )
      If  s = " " Or s =  "　" Then
        If flg Then
           usTrim = usTrim & "　"
           flg = False
        End If
      Else
        usTrim = usTrim & s
        flg = True
      End If
    Next
End Function