dim x as string
dim y as string
dim + as string

でできるじゃん
あとは配列にいれてソートしてイコールになればQED