How to Allow only numeric value in the text box

Private Sub Txtopening_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Txtopening.KeyPress
If Asc(e.KeyChar) > 47 And Asc(e.KeyChar) < 58 Or Asc(e.KeyChar) = 8 Or Asc(e.KeyChar) = 46 Then
If Txtopening.Text.Contains(".") Then
If Asc(e.KeyChar) = 46 Then
e.Handled = True
End If
Else
e.Handled = False
End If
Else
e.Handled = True
End If
End Sub