Ho provato così:

Dim stringanumeri As String = "0123456789"
Dim oknum As Boolean = False
Dim i

For i = 0 To Len(new_pwd)
If InStr(stringanumeri, Mid(new_pwd), i, 1) > 0 Then
oknum = True
Else
MsgBox("La password deve contenere almeno un numero")
End If
Next

Ma mi da Mid(new_pwd) sottolineato.
Sapete dove devo correggere???