Una possibile soluzione è questa, non mi piace molto in quanto usa SendKey...
Se hai solo 1 Controllo di quel tipo il codice è semplificato così:
Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)
If Screen.ActiveControl Is Me.NomeTuaTextBox Then
If Count < 0 Then
SendKeys "{up 2}"
Else
SendKeys "{down 2}"
End If
End If
End Sub
Se hai più controlli puoi inserire nella Proprietà TAG dei controlli... una "X" e controllare
Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)
If Screen.ActiveControl.Tag="X" Then
....