Imports System
Imports System.Text.RegularExpressions
 
Public Class Test
	Public Shared Sub Main()
 
Dim input As String = "Contacts.Address2 as `Contact Address2` Contacts.ContactID CONCAT(Contacts.FirstName;;' ';;Contacts.LastName) as `Contact`"
 
For Each m As Match In Regex.Matches(input, "(\w+)\.(\w+)")
    Console.WriteLine(
           String.Join(", ", 
                       m.Groups(1).Value,
                       m.Groups(2).Value
                      ))
Next
 
	End Sub
End Class

SW1wb3J0cyBTeXN0ZW0KSW1wb3J0cyBTeXN0ZW0uVGV4dC5SZWd1bGFyRXhwcmVzc2lvbnMKClB1YmxpYyBDbGFzcyBUZXN0CglQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkKCQpEaW0gaW5wdXQgQXMgU3RyaW5nID0gIkNvbnRhY3RzLkFkZHJlc3MyIGFzIGBDb250YWN0IEFkZHJlc3MyYCBDb250YWN0cy5Db250YWN0SUQgQ09OQ0FUKENvbnRhY3RzLkZpcnN0TmFtZTs7JyAnOztDb250YWN0cy5MYXN0TmFtZSkgYXMgYENvbnRhY3RgIgoKRm9yIEVhY2ggbSBBcyBNYXRjaCBJbiBSZWdleC5NYXRjaGVzKGlucHV0LCAiKFx3KylcLihcdyspIikKICAgIENvbnNvbGUuV3JpdGVMaW5lKAogICAgICAgICAgIFN0cmluZy5Kb2luKCIsICIsIAogICAgICAgICAgICAgICAgICAgICAgIG0uR3JvdXBzKDEpLlZhbHVlLAogICAgICAgICAgICAgICAgICAgICAgIG0uR3JvdXBzKDIpLlZhbHVlCiAgICAgICAgICAgICAgICAgICAgICApKQpOZXh0CiAgICAgICAgCglFbmQgU3ViCkVuZCBDbGFzcw==