La proprietà Color del CommonDialog è di tipo Long, non stringa. Se per qualche ragione vuoi mantenere questo valore in una variabile String, fai così:
codice:
Dim s As String

s = CStr(CommonDialog1.Color)    'conversione in string

'...

Command1.BackColor = CLng(s)     'riconversione in long