How can I get VLOOKUP to work with this?

[mantis1117]

I want insert VLOOKUP in place of the values 1,2,3,4,0 but am getting a cell reference error. Any ideas?

If HR430Flag = True Then
    ActiveCell.Offset(0, 1).Value = 1
        
ElseIf HR431Flag = True Then
    ActiveCell.Offset(0, 1).Value = 2
     
ElseIf HD430Flag = True Then
    ActiveCell.Offset(0, 1).Value = 3
     
ElseIf HD431Flag = True Then
    ActiveCell.Offset(0, 1).Value = 4
    
Else
    ActiveCell.Offset(0, 1).Value = 0
End If