Regex phone numbers

Public Function searchForEmailAddresses(ByRef inputString As String) As List(Of String)
Dim returnList As New List(Of String)()
Dim r As Regex
Dim m As Match
r = New Regex("[A-Z0-9._%+-]+@[A-Z0-9.-]+\.[A-Z]{2,4}", _
RegexOptions.IgnoreCase)
m = r.Match(inputString)
While m.Success
returnList.Add(m.Groups(0).Value)
'MsgBox(m.Groups(0).Value)
m = m.NextMatch()
End While
Return returnList
End Function
Public Function searchForFirstLineStreetAddresses(ByRef inputString As String) As List(Of String)
Dim returnList As New List(Of String)()
Dim r As Regex
Dim m As Match
r = New Regex("\d{1,3}.?\d{0,3}\s[a-zA-Z]{2,30}\s[a-zA-Z]{2,15}", _
RegexOptions.IgnoreCase)
m = r.Match(inputString)
While m.Success
returnList.Add(m.Groups(0).Value)
'MsgBox(m.Groups(0).Value)
m = m.NextMatch()
End While
Return returnList
End Function
Public Function searchForSecondLineStreetAddresses(ByRef inputString As String) As List(Of String)
Dim returnList As New List(Of String)()
Dim r As Regex
Dim m As Match
r = New Regex("\b[a-z]+[,]\s\d{4}", _
RegexOptions.IgnoreCase)
m = r.Match(inputString)
While m.Success
returnList.Add(m.Groups(0).Value)
'MsgBox(m.Groups(0).Value)
m = m.NextMatch()
End While
Return returnList
End Function
Public Function searchForMobiles(ByRef inputString As String) As List(Of String)
Dim returnList As New List(Of String)()
Dim r As Regex
Dim m As Match
r = New Regex("(04\d{2})[\s\-]?(\d{3})[\s\-]?(\d{3})", _
RegexOptions.IgnoreCase)
m = r.Match(inputString)
While m.Success
returnList.Add(m.Groups(1).Value & m.Groups(2).Value & m.Groups(3).Value)
'MsgBox(m.Groups(1).Value & m.Groups(2).Value & m.Groups(3).Value)
m = m.NextMatch()
End While
Return returnList
End Function
Public Function searchForRegularPhoneNumbers(ByRef inputString As String) As List(Of String)
Dim returnList As New List(Of String)()
Dim r As Regex
Dim m As Match
r = New Regex("0[2|3|7|8]{1}[\s\-][0-9]{4}[\s\-][0-9]{4}", _
RegexOptions.IgnoreCase)
m = r.Match(inputString)
While m.Success
returnList.Add(m.Groups(0).Value.Replace(" ", ""))
'returnList.Add(m.Groups(1).Value & m.Groups(2).Value & m.Groups(3).Value)
'MsgBox(m.Groups(0).Value.Replace(" ", ""))
m = m.NextMatch()
End While
Return returnList
End Function