Activex Componet Cant Create Object

[acms]

Im making a Msn Caption changer and with some other functions like spamming but i get Activex Componet Cant Create Object when debugging on my own computer
my code is below

Public WithEvents msn As MessengerAPI.Messenger
 
Private Sub Command1_Click()
msn.MyContacts = List1
End Sub
 
Private Sub Form_Load()
msn = MessengerAPI.Messenger
With Combo1
.AddItem "Invisible"
.AddItem "BRB"
.AddItem "Busy"
.AddItem "Out To Lunch"
.AddItem "OTP"
End With
End Sub
Private Sub combo1_click()
If Combo1 = "Invisible" Then
msn.MyStatus = MISTATUS_INVISIBLE
End If
If Combo1 = "Brb" Then
msn.MyStatus = MISTATUS_BE_RIGHT_BACK
End If
If Combo1 = "Busy" Then
msn.MyStatus = MISTATUS_BUSY
End If
If Combo1 = "Out To Lunch" Then
msn.MyStatus = MISTATUS_OUT_TO_LUNCH
End If
If Combo1 = "OTP" Then
msn.MyStatus = MISTATUS_ON_THE_PHONE
End If
End Sub