Visual Basic - Aumentar el valor en uno en un cuadro de texto

Estoy pegado en este simple codigo.

Quiero asignarle un numero inicial por ejemplo r= 4 . Al darle a un boton que sume 1 y en el cuadro de texto diga 5, ademas lo guarde.
Al volverle a dar al boton me va a dar 6 porque sumara el numero anterior.

Me entienden la idea?

Ayudenme con el codigo, gracias ^^`

Si te he entendido bien es algo tan sencillo como esto

Option Explicit

Private Sub Command1_Click()
Text1 = Text1 + 1
End Sub

Private Sub Form_Load()
Text1 = 4
End Sub