Function แยกบ้านเลขที่ออกจาก บ้านเลขที่และข้อความ

Public Function FormatAdr(Adr) As String

    For i = Len(Adr) To 1 Step -1
            If IsNumeric(Mid(Adr, i, 1)) Then
                    FormatAdr = Left(Adr, i)
                    Exit For
            Else
                    FormatAdr = Adr
            End If
    Next

End Function

Public Function numAdr(Adr) As String

    For i = 1 To Len(Adr)
            If (Not (IsNumeric(Mid(Adr, i, 1))) And Mid(Adr, i, 1) <> "/" And Mid(Adr, i, 1) <> "-") Then
                    numAdr = Left(Adr, i - 1)
                    Exit For
            Else
                    numAdr = Adr
            End If
    Next

End Function