Imports System
Imports System.Text.RegularExpressions
 
Public Class Test
	Public Shared Sub Main()
	  Dim pattern1 As String =  "(?<=\d)\s+(?=[AP])"
	  Dim pattern2 As String = "(?<=M)\s+(?=\d)"
 
      Dim rgx1 As New Regex(pattern1)
      Dim rgx2 As New Regex(pattern2)
 
      Dim input As String = "12:01 AM-3:00 AM 4:00 AM-9:00 AM 4:00 AM-9:00 AM"
 
      Dim result As String = rgx2.Replace(rgx1.Replace(input, ""), "|").toLower
 
      Console.WriteLine(result) 
	End Sub
End Class

SW1wb3J0cyBTeXN0ZW0KSW1wb3J0cyBTeXN0ZW0uVGV4dC5SZWd1bGFyRXhwcmVzc2lvbnMKClB1YmxpYyBDbGFzcyBUZXN0CglQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkKCSAgRGltIHBhdHRlcm4xIEFzIFN0cmluZyA9ICAiKD88PVxkKVxzKyg/PVtBUF0pIgoJICBEaW0gcGF0dGVybjIgQXMgU3RyaW5nID0gIig/PD1NKVxzKyg/PVxkKSIKICAgICAgCiAgICAgIERpbSByZ3gxIEFzIE5ldyBSZWdleChwYXR0ZXJuMSkKICAgICAgRGltIHJneDIgQXMgTmV3IFJlZ2V4KHBhdHRlcm4yKQogICAgICAKICAgICAgRGltIGlucHV0IEFzIFN0cmluZyA9ICIxMjowMSBBTS0zOjAwIEFNIDQ6MDAgQU0tOTowMCBBTSA0OjAwIEFNLTk6MDAgQU0iCiAgICAgIAogICAgICBEaW0gcmVzdWx0IEFzIFN0cmluZyA9IHJneDIuUmVwbGFjZShyZ3gxLlJlcGxhY2UoaW5wdXQsICIiKSwgInwiKS50b0xvd2VyCgogICAgICBDb25zb2xlLldyaXRlTGluZShyZXN1bHQpIAoJRW5kIFN1YgpFbmQgQ2xhc3M=