自动去除全角半角空格

    Private Sub utextAddr_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles utextAddr.LostFocus
        Dim strAddr As String
        strAddr = utextAddr.Text()

        If strAddr.Trim <> "" Then
            strAddr = Replace(strAddr, " ", "")
            strAddr = Replace(strAddr, "　", "")
            utextAddr.Text = strAddr
        End If
    End Sub