Amigos ::: Guenas Noticias !!!! me acaba de salir y resuelvo el problema, les dejo el codigo completo para quienes desean hacer esto :::
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If InStr(1, "0123456789,." & Chr(8), e.KeyChar) = 0 Then
res.Text = TextBox1.Text
End If
End Sub
Espero le sirva a alguien. Saludos !!!!!!