在VB中，可以使用API函数来搜索某个字符串在内存中的位置。以下是一个基本的从指定地址开始搜索包含指定字符串的内存块的示例：

Private Declare Function RtlMoveMemory Lib "kernel32" (ByVal Destination As Long, ByVal Source As Long, ByVal Length As Long) As Long

Private Declare Function VirtualQueryEx Lib "kernel32" (ByVal hProcess As Long, ByVal lpAddress As Long, ByRef lpBuffer As MEMORY_BASIC_INFORMATION, ByVal dwLength As Long) As Long

Private Structure MEMORY_BASIC_INFORMATION

    BaseAddress As Long

    AllocationBase As Long

    AllocationProtect As Long

    RegionSize As Long

    State As Long

    Protect As Long

    Type As Long

End Structure

Private Sub SearchStringInMemory(ByVal startAddr As Long, ByVal length As Long, ByVal searchString As String)

    Dim memInfo As MEMORY_BASIC_INFORMATION

    Dim curAddr As Long

    Dim endAddr As Long

    Dim buffer As String

    Dim i As Integer

    endAddr = startAddr + length - 1

    curAddr = startAddr

    While curAddr < endAddr

        ' 查询内存信息

        VirtualQueryEx ProcessHandle, curAddr, memInfo, Len(memInfo)

        ' 如果内存状态为MEM_COMMIT，则读取内存内容

        If memInfo.State = &H1000 Then

            buffer = Space$(memInfo.RegionSize)

            RtlMoveMemory ByVal StrPtr(buffer), memInfo.BaseAddress, memInfo.RegionSize

            ' 在缓冲区中搜索字符串

            i = InStr(buffer, searchString)

            If i > 0 Then

                MsgBox "Found at address " & Hex(curAddr + i - 1)

            End If

        End If

        ' 移动到下一个内存块的起始地址

        curAddr = memInfo.BaseAddress + memInfo.RegionSize

    Wend

End Sub

在这个示例中，我们首先定义了三个变量：startAddr表示搜索的起始地址，length表示要搜索的内存大小（以字节为单位），searchString是要查找的字符串。然后，我们使用VirtualQueryEx函数查询内存信息，并使用RtlMoveMemory函数从内存中读取内容。最后，我们使用InStr函数在缓冲区中搜索字符串。

其中，MEMORY_BASIC_INFORMATION结构体用于保存内存信息，包括基地址、保护模式、状态等。VirtualQueryEx函数可用于检索指定进程中某个地址处内存区域的信息，并将结果写入MEMORY_BASIC_INFORMATION结构体中。

请注意，以上代码仅演示了如何在内存中搜索字符串，实际使用时需要根据具体情况进行调整并确保操作的合法性。