Thank you for your reply,

I got it work with following:

Private Sub ComboBox1_DropButtonClick()
With Activepresentation.Slides(1).Shapes("Retangle1")
.TextFrame.TextRange.Text = ComboBox1.Text
End With
If combobox.ListCount = 0 Then
With ComboBox1
.AddItem " ", 0
.AddItem "Test", 1
.AddItem "Test2", 2
End With
End If
End Sub
Only issue now is that if I want to add freetext it wont submit it with enter key...