How do I fix this straight-firing raycasting gun?

Hey, all.

I'm making a gun system where a ray will be cast straight out of the muzzle, and stop when it hits a wall. Basically, how a gun would actually fire.

However, the math is odd, and the ray stops exactly one stud out from the target. If I try multiplying, the ray will go through all parts.

Here's the local script.

local function Shoot()
    local fromPoint = script.Parent.ForBullets.Position
    local direction = script.Parent.ForBullets.CFrame*CFrame.Angles(0,math.rad(0),0).LookVector

    game.ReplicatedStorage.Damage10Event:FireServer(fromPoint, direction)
end

And the server script.

game.ReplicatedStorage.Damage10Event.OnServerEvent:Connect(function(Player, FromPoint, direction)
    local RayCast = Ray.new(FromPoint, (direction - FromPoint))
    local part, Position = game.Workspace:FindPartOnRay(RayCast, Player.Character)
    local Laser = Instance.new("Part")
    Laser.Parent = game.Workspace
    Laser.CanCollide = false
    Laser.Anchored = true
    Laser.Material = Enum.Material.Neon
    Laser.Color = Color3.fromRGB(243,236,24)
    local Dist = (direction-FromPoint).Magnitude
    Laser.CFrame = CFrame.new(FromPoint, Position)*CFrame.new(0,0,-Dist/2)
    Laser.Size = Vector3.new(0.2, 0.2, Dist)
    game.Debris:AddItem(Laser, 0.05)
end)

I don't know how to do good raycasting math. Any help would be appreciated. (Also, I did look at other posts to figure this out. Still encountered problems.)