Try this,
Dim MyPracticeName, MyPracticeCode, MyPracticeLocation, MyVisionEmis
Dim PracticeNameFalse, PracticeCodeFalse, PracticeLocationFalse, VisionEmisFalse
dim falseColor, trueColor
MyPracticeName = Me.txtPracticeName & ""
MyPracticeCode = Me.txtPracticeCode & ""
MyPracticeLocation =...