Private Sub CmdApply_Click()
Dim new_rate As Long

    On Error GoTo RateError
    new_rate = CLng(NewRate.Text)
    SetCaretBlinkTime new_rate
RateError:

End Sub

Private Sub Form_Load()
Dim txt As String

    txt = Format$(GetCaretBlinkTime())
    OldRate.Caption = txt
    NewRate.Text = txt
    NewRate.SelStart = 0
    NewRate.SelLength = Len(txt)
    Me.Show
    NewRate.SetFocus
End Sub