Visual Basic - duda con las variables y cuadro de texto

una pequeña duda
estoy creando una calculadora con visual basic sp 6

y tengo un cradro de texto donde se van colocando los numeros que apreto , el problema es que tiene un limite la variable

Dim numero As Double
Private Sub Command1_Click(Index As Integer)

Select Case Index
Case 0
numero = numero & 0
Text1 = numero
Case 1
numero = numero & 1
Text1 = numero
Case 2
numero = numero & 2
Text1 = numero
Case 3
numero = numero & 3
Text1 = numero
Case 4
numero = numero & 4
Text1 = numero
Case 5
numero = numero & 5
Text1 = numero
Case 6
numero = numero & 6
Text1 = numero
Case 7
numero = numero & 7
Text1 = numero
Case 8
numero = numero & 8
Text1 = numero
Case 9
numero = numero & 9
Text1 = numero

End Select

End Sub

observan declaro numero como double , y ese numero es el que me aparece como pantalla de cualculadora pero tiene un maximo despues peta , hay alguna forma de que sea mas grande en numero que introduzco
gracias