Basic - Mejor código en visual Basic...

Buenos Días
Por favor Necesito mejorar este código.....

Dim iPrimerValor As Long, iSegundoValor As Long, iTercerValor As Long

Private Sub Form_Load()
Text1.Text = ""
iPrimerValor = 1
iSegundoValor = 1
iTercerValor = 0
Text1.Text = iPrimerValor
Text1.Text = Text1.Text & "-" & iSegundoValor
End Sub

Private Sub Command1_Click()
If iTercerValor < 1830000000 Then
iTercerValor = iPrimerValor + iSegundoValor
Text1.Text = Text1.Text & "-" & iTercerValor
iPrimerValor = iSegundoValor
iSegundoValor = iTercerValor
Else
MsgBox "Soy Long, no resisto tanto!", vbExclamation, "Error!"
End If
End Sub

============