Wouldn't inserting the numbers be the most easy part?
For each button click you can simply add the number it represents, like:
Private Sub btn_1_Click()
txtRL.Text = txtRL.Text & "1"
End Sub
Private Sub btn_2_Click()
txtRL.Text = txtRL.Text & "2"
End Sub
etc...
Good luck!