se option strict è impostato devi fare così (che è sempre meglio)

Dim somma as Long
somma=CLng(Me.Text1.Text)+CLng(Me.Text2.Text)

o CDbl se somma è double, dipende dai dati da sommare, se hanno decimali oppure no, ed in questo caso controlla il separatore dei decimali.