Error VB6 al calcular el perímetro de un rectángulo

El tipo de datos es incorrecto, no debe ser tipo carácter (cadena), debe ser tipo número real (simple) o entero (entero), y luego convertirse a caracteres cuando se muestra

Private Sub Command1_Click()

Dim chang As Single, kuan As Single, mianji As Single, zhouchang As Single 'Definir variables de largo, ancho, área y perímetro

chang = Val (Text1. Text) 'Obtiene la longitud a través del cuadro de texto 1

kuan = Val(Text2.Text) 'Obtiene el ancho a través del cuadro de texto 2

Si chang lt; kuan lt; = 0 Entonces 'Juzga que el largo y el ancho no pueden ser menores o iguales a 0

MsgBox "Ingrese el valor correcto", vbOKCancel, "Mensaje de error" 'Si es 0, an aparecerá un mensaje de error

Text1.SetFocus ' Definir posición del cursor

Else

mianji = chang * kuan 'Calcular área

zhouchang = 2 * (chang kuan) 'Calcular perímetro

End If

Label2.Caption = Str(mianji) 'Área de salida

Label6.Caption = Str(zhouchang ) 'Perímetro de salida

End Sub

Los únicos cambios son la línea DIM y las dos últimas líneas de la subrutina