Val関数はデータ型不一致の解決策。文字列型から数値型へ

Option Explicit

Sub Val関数テスト1()
    Dim SeleIDa As Long
    Dim EC As Long
    Dim s As Long, t As Long
        SeleIDa = Range("D3").Value
        EC = Range("E3").Value
            For s = 5 To 22
                If Range("A" & s).Value = SeleIDa Then
                    Exit For
                End If
            Next s
            For t = 0 To EC - 1
                Range("D" & 6 + t) = Range("A" & s + t)
                Range("E" & 6 + t) = Range("B" & s + t)
            Next t
End Sub

Sub Val関数テスト2()
    Dim SeleIDb As Long
    Dim MR As Long
    Dim StrID As String
    Dim q As Long, r As Long
        For q = 0 To 4
            SeleIDb = Range("D" & 16 + q).Value
            StrID = CStr(SeleIDb)
                If Len(StrID) = 6 Then
                    StrID = "0" & CStr(SeleIDb)
                End If
                On Error Resume Next
                MR = WorksheetFunction.Match(StrID, Range("A5:A22"), 0)
                Range("E" & 16 + q) = Range("B" & MR + 4)
        Next q
End Sub

Sub Val関数テスト3()
    Dim SeleIDc As Long
    Dim MR As Long
    Dim StrID As String
    Dim m As Long, n As Long
'元のデータベースを数値型に変換する
'数値型に変換したデータを新たな列に並べる
        For m = 5 To 22
            Range("G" & m) = val(Range("A" & m))
        Next m
        Range("G4") = "商品ID(数値)"
        For n = 0 To 4
            SeleIDc = Range("H" & 16 + n).Value
'Match関数でデータを参照する
            On Error Resume Next
            MR = WorksheetFunction.Match(SeleIDc, Range("G5:G22"), 0)
            Range("I" & 16 + n) = Range("B" & MR + 4)
        Next n
End Sub