Copying the source code on this lesson causes a VB task to fail. I had to do some research on VB coding, but I got this task within the package to work by editing the code initially presented in the "Try This" section. May I propose:

Dim OurInt As Integer

OurInt = CType((Dts.Variables("intVar").Value), Integer)

'This script will accept inputs and then display outputs as expected
If OurInt > 10 Then
Dts.Variables("strVar").Value = "Big"
Else
Dts.Variables("strVar").Value = "Small"
End If

MsgBox(Dts.Variables("strVar").Value)