Private Sub UserForm_Initialize()
If Not ActiveCell.Comment Is Nothing Then
temp = ActiveCell.Comment.Text
a = Split(temp, vbLf)
For i = LBound(a) To UBound(a)
p = InStr(a(i), ":")
If p > 0 Then Me("textbox" & i + 1) = Mid(a(i), p + 1)
Next i
End If
Me.Left = 300
Me.Top = 100
End Sub