UserForms are getting strange, please help.

This must be the weirdest phenomenon I've ever faced.

Normally in Userform.ListBox.Font.Italic should works just like a range.

Private Sub UserForm_Initialize()
'this would works as expected
UserForm1.ListBox1.RowSource = "Sheet1!A1:A3"
UserForm1.ListBox1.Font.Italic = True
UserForm1.ListBox1.Font.Italic = False
End Sub

But see these two samples below.

Private Sub UserForm_Initialize()
'this will NOT works! Just because i assigned a range variable. HOW STRANGE
'Notice the list is stil italic even if i set .Italic = False
Dim test_rng As Range

Set test_rng = [b5]

UserForm2.ListBox1.RowSource = "Sheet1!A1:A3"
UserForm2.ListBox1.Font.Italic = True
UserForm2.ListBox1.Font.Italic = False

'MsgBox UserForm2.ListBox1.Font.Italic 'you can uncomment this line to check .Italic property, it's still TRUE

End Sub

Private Sub UserForm_Initialize()
'this will NOT works same! Because i assigned wildcard characters combined with textbox value to a variable. GOSH STRANGE.
'Notice the list is stil italic even if i set .Italic = False
Dim test_str As String

test_str = UserForm3.TextBox1.Value & "*"
UserForm3.ListBox1.RowSource = "Sheet1!A1:A3"
UserForm3.ListBox1.Font.Italic = True
UserForm3.ListBox1.Font.Italic = False

'MsgBox UserForm3.ListBox1.Font.Italic 'you can uncomment this line to check .Italic property, it's still TRUE
End Sub

The codes self-explained. 

It just doesn't make any sense! how could possibly assign a range variable or wildcard+textbox value affects the italic property of listbox.

 And the most weird thing is to fix this, just assign italic property in other module.

Call fixed
------------------
Sub fixed()
UserForm3.ListBox1.Font.Italic = False
End Sub

I have uploaded a sample file to clarify the issue.

Please leave any thoughts below ...