Como chamar um procedimento de evento TextBox1_Keypress ?

vou escolher um item da lista para preencher outra lista, mas antes de transferir este item o usuário obrigatoriamente tem que digitar a quantidade.

Segue o código que estou tentado executar, retorna Erro em tempo de execução "91"

Private Sub ListBox1_Click()

Dim strAddress As String
Dim l As Long
Dim Col As Long
Dim Keyascii As MSForms.ReturnInteger
Dim Obt As UserForm
Dim tb As MSForms.TextBox

For l = 0 To ListBox1.ListCount

If ListBox1.Selected(l) = True Then
strAddress = ListBox1.List(l, 1)

End If
Next l

Call TextBox2_KeyPress(Keyascii)

End Sub
____________________________

Sub TextBox2_KeyPress(ByVal Keyascii As MSForms.ReturnInteger)

Select Case Keyascii
Case 46, 48 To 57
Case 48 To 57
Case Else
Keyascii = 0

MsgBox "teste"
End Select
End Sub