[VB6] Problema con TextBox

[Mikialba]

Salve a tutti! Sono un ragazzo di 13 anni che ha appena cominciato a programmare col Visual Basic 6. Sto realizzando un applicazione che permette di risolvere problemi di geometria in modo semplice e veloce. Ecco il problema:
In pratica, bisogna immettere il dato nella Textbox, cliccare sul bottone Calcola! e il risultato viene calcolato automaticamente. Il problema avviene quando inserisco delle lettere, al posto di numeri. Mi compare una schermata con la scritta "Error 13: Type Mismatch". Vi posto il codice del form per il calcolo dell'area del quadrato come esempio:

    '////////// 1. Calcolo dell'area \\\\\\\\\\
    Private Sub Command2_Click()
    If Len(Trim(Text1.Text)) = 0 Then
    MsgBox "Errore! Non è stato inserito nessun numero."
    Else:
    MsgBox Text1 ^ 2
    End If
    End Sub

Come vedete, il problema del form bianco l'ho risolto, ma per i caratteri non so come fare!
Lo so, può sembrare stupido, ma da un tocco in + di professionalità. Grazie per le eventuali risposte. Ciao!

[okay]

Originariamente inviato da Mikialba

Salve a tutti! Sono un ragazzo di 13 anni che ha appena cominciato a programmare col Visual Basic 6. Sto realizzando un applicazione che permette di risolvere problemi di geometria in modo semplice e veloce. Ecco il problema:
In pratica, bisogna immettere il dato nella Textbox, cliccare sul bottone Calcola! e il risultato viene calcolato automaticamente. Il problema avviene quando inserisco delle lettere, al posto di numeri. Mi compare una schermata con la scritta "Error 13: Type Mismatch". Vi posto il codice del form per il calcolo dell'area del quadrato come esempio:

    '////////// 1. Calcolo dell'area \\\\\\\\\\
    Private Sub Command2_Click()
    If Len(Trim(Text1.Text)) = 0 Then
    MsgBox "Errore! Non è stato inserito nessun numero."
    Else:
    MsgBox Text1 ^ 2
    End If
    End Sub

Come vedete, il problema del form bianco l'ho risolto, ma per i caratteri non so come fare!
Lo so, può sembrare stupido, ma da un tocco in + di professionalità. Grazie per le eventuali risposte. Ciao!

correggi con:
MsgBox val(Text1.text) ^ 2

se hai scritto solo lettere il val fà che si estragga solo 0 in quanto non ci sono numeri. Prova a scrivere, dopo la correzzione, ci12ao. Ti estrarrà 12.

[Mikialba]

Originariamente inviato da okay

correggi con:
MsgBox val(Text1.text) ^ 2

se hai scritto solo lettere il val fà che si estragga solo 0 in quanto non ci sono numeri. Prova a scrivere, dopo la correzzione, ci12ao. Ti estrarrà 12.

Grazie mille, funziona alla grande. Ciao!