Screen Keyboard

Is there a way to create only the number part of the keyboard on the screen? I have app where user can enter info which will be only numbers, currently large full keyboard is being used but would like to only have number pad come up.
Thanks

    port = CreateObject("roMessagePort")
    screen = CreateObject("roPinEntryDialog")
    screen.SetMessagePort(port)
    screen.SetTitle("Please enter your PIN to access")
    screen.SetNumPinEntryFields(4)
    screen.AddButton(1, "OK")
    screen.AddButton(2, "CANCEL")
    screen.Show()

Thank you for the help. Exactly what I needed.