So if H2 = 0 you return 0 otherwise you return H2 with a leading zero?
Try
Code:
Sub k1()
Dim var1 As String
If Range("H2") = "0" Then var1 = "0"
Else: var1 = "0" & Range("H2")
MsgBox var1
End Sub
You may need to replace "0" with 0 depending on the data (a common problem amongst newbies is to mix up 0 with "0")