Private Sub Form_Activate()

Dim B5Japanese As String

B5Japanese = "やゆよりれ"
Print B5Japanese
Print StrConv(B5Japanese, vbUnicode)
Print StrConv(B5Japanese, vbFromUnicode)
End Sub

再試試