Try this.
Private Sub Combobox1_Change()
    If Combobox1.ListIndex <> -1 Then
       Label1.Caption = Range("A" & Combobox1.ListIndex+1).Value
    End If
End Sub