Dim s1, s2 As String
でs1がバリアントになるのは勘弁して欲しい。
あと推論型も欲しい。