Op deze manier kunnen we die conversie doen. Deze code bevindt zich in de gebeurtenis KeyPress van het tekstvak dat we gebruiken om de invoer op te vragen. Als KeyAscii = 13 heeft de gebruiker op ENTER gedrukt, dus zijn invoer bevestigd.
We plaatsen On Error Resume Next bovenaan, omdat er zeker fouten zullen optreden. Je kan bv. geen string met letters naar een integer converteren.
If KeyAscii = 13 Then
Dim invoer As String
invoer = txtInvoer.Text
Dim uitvoer As String
uitvoer = "Je tikte in: " & invoer & vbCrLf
uitvoer = uitvoer & "Als BOOLEAN is dat: " & CBool(invoer) & vbCrLf
uitvoer = uitvoer & "Als CURRENCY is dat: " & CCur(invoer) & vbCrLf
uitvoer = uitvoer & "Als DATE is dat: " & CDate(invoer) & vbCrLf
uitvoer = uitvoer & "Als DOUBLE is dat: " & CDbl(invoer) & vbCrLf
uitvoer = uitvoer & "Als INTEGER is dat: " & CInt(invoer) & vbCrLf
uitvoer = uitvoer & "Als LONG is dat: " & CLng(invoer) & vbCrLf
uitvoer = uitvoer & "Als SINGLE is dat: " & CSng(invoer) & vbCrLf
uitvoer = uitvoer & "Als STRING is dat: " & CStr(invoer) & vbCrLf
lblUitvoer.Caption = uitvoer
End If