Bonjour à tous !

J'ai un soucis avec une regexp, je dois trouver dans un champ le caractère "-" il n'y en a qu'un dans le champs, une fois que je trouve ce caractère, je dois stocker le caractère après ce "-".
Exemple : 15R41-1254
Je dois récupérer "1"
Je vous montre mon bout de code traitant du problème. Apparement $1 pour récupérer cela n'est pas bon. Sinon pour ce qui est de mon pattern le voici :
Dim Regexp As New Regex("1.+\-(.).*$")
Merci.
While myreader.Read()
'Assignation des variables
DataBase = myreader.GetValue(1)
McuCode = myreader.GetValue(0)
myCommand4 = New System.Data.Odbc.OdbcCommand("SELECT McuName FROM " & DataBase & ".T_MCU where McuCode ='" & McuCode & "'", connexion2)
myAdapter4 = New System.Data.Odbc.OdbcDataAdapter(myCommand4)
'Requete pour récupérer McuName
Dim myreader2 As System.Data.Odbc.OdbcDataReader = myCommand4.ExecuteReader(CommandBehavior.CloseConnection)
ReDim McuName(myreader2.RecordsAffected)
If myreader2.RecordsAffected > 0 Then
'Affichage des données
myreader2.Read()
McuName(i) = myreader2.GetValue(0)
nom_compte(i) = myreader.GetValue(1)
immat(i) = myreader.GetValue(2)
serialboxnumber(i) = myreader.GetValue(3)
simnumber(i) = myreader.GetValue(4)
Regexp.Match(myreader.GetValue(5))
If $1 = "1" then
datanumber(i) = "Tracteur"
End If
If $1 = "2" then
datanumber(i) = "Semi"
End If
If $1 = "3" then
datanumber(i) = "Porteur"
End If
_______________________
<<<< :-: 4L!@$ :-: >>>>