Like比較メモ、ひらがなだけ取得

ひらがなだけ取り出して、ついでにひらがな以外も取得。

For i = 1 To Len(tmp)
    If Mid(tmp, i, 1) Like "[あ-ん]" Then
        hiragana = hiragana & Mid(tmp, i, 1)
    Else
        sonota = sonota & Mid(tmp, i, 1)
    End If
Next i

'別解
For i = 1 To Len(tmp)
    s = Mid(tmp, i, 1)
    Select Case True
        Case s Like "[あ-ん]"
            hiragana = hiragana & s
        'Case s Like "[ア-ン]"
        'Case s Like "[0-9A-Za-z]" '半角英数字
        Case Else
            sonota = sonota & s
    End Select
Next i

PDFからExcelにデータを逆輸入したりなんかすると、漢字とふりがなが混在して「株かぶ式しき会がい社しゃ」みたいになったり、セルが不必要に結合されていたり、逆に無駄に分割されていたり、実際にはもっと面倒。そんな状況に遭遇しました。
以上