Dim vStringInteiro As String = "O telefone é 2334-4332"
Dim vExpressaoRegular As String = "[0-9]{4}-?[0-9]{4}"
Dim Y As Match = Regex.Match(vFrase, vExpressaoRegular)
MsgBox(Y.Value)
Acho que deveria ser:
Dim vStringInteiro As String = "O telefone é 2334-4332"
Dim vExpressaoRegular As String = "[0-9]{4}-?[0-9]{4}"
Dim Y As Match = Regex.Match(vStringInteiro , vExpressaoRegular)
MsgBox(Y.Value)