Dim myString As String = "pippo pluto ag12345 paperino "

        'Ciclo la mia stringa alla ricerca di quello che mi serve, se la trovo allora sostituisco il prefisso "ag"
        Dim myNumber As String
        Dim mySplit() As String = myString.Split(" ")
        For i As Integer = 0 To mySplit.GetUpperBound(0) - 1
            Dim myTXT As String = mySplit(i).ToString
            If myTXT.StartsWith("ag") = True Then
                myNumber = myTXT.Replace("ag", "")
            End If
        Next

        MsgBox(myNumber)

        'Oppure più diretto se sai che la posizione della tua stringa è sempre la 3za
        Dim myTXT2 As String = mySplit(2).ToString.Replace("ag", "")
        MsgBox(myTXT2)