Expression régulière en VBA

Bonjour,

Je suis nouveau en devellopement, surtout pour les expressions régulières.

Je dois écrire un programme de tournées chauffeur en VBA sur Excel. Dans un User form, je dois vérifier que l'utilisatuer à bien rentré les km sur une boite de texte, soit une série de chiffre. j'ai écrit cette fonction (voir ci-dessous).

Mais quand je l'appel il me retourne toujours false da, ns les message box, même quand je rentre bien des série de 1 à n chiffre. Si vous pouvez m'aider.

Merci

Function formRégulièreKm(kmDebut, kmFin, chauffeur) As Boolean

Dim test1 As String
Dim test2 As String

test1 = kmDebut
test2 = kmFin

formRégulièreKm = ((test1 Like "^[0-9]+$") Or (test2 Like "^[0-9]+$"))

MsgBox kmFin & " / " & (test2 Like "^[0-9]+$")
MsgBox kmDebut & " / " & (test1 Like "^[0-9]+$")

If (formRégulièreKm = False) Then
MsgBox "Le format des km du camion : " & chauffeur & " n'est pas bon"
Exit Function
End If


End Function